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¥04-000 Peep ISbe Beibarte Lonovessmeicratccccy.mans1 2% I, 


-TITLE TOS YSGEN - MAIN PROGRAM FOR STANDALONE SYSGEN 
~IDENT ‘v04=-000' 


SERRA A AEE E EAE AAA AAA A AAA AAAAEAAAAAAAEAAAAAAARARAAAEAAAAAAAAAAAAERE REARS 


-® 
;* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ACCORDANCE WITH R OF SUCH LICENSE AND WITH THE 
eRe THE ABOVE Vga NOTICE. THIS SOFTWARE yi ANY OTHER 


OOOoOCoooo 


SOOoCooooooooooooooooooooooooo 


COOOOCSCCOSOOCOOOSOSOSOSOSOSOSOSOSOSOSOSOSOSOOSOOSOOOOOOOOOOOOOOOOOOOOOOOOO 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSES 


nner 


* 
* * 
® * 
* # 
* * 
* ® 
* * 
* « 
* ¢ * 
* OTH ® 
;* TRANSFERRED. * 
sf * 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

® 
® ® 
® * 
* * 
® ® 
® * 
* * 


CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LARA RAAAAARALAALALALALL ELLE LES ESE EEE ESET ELE SEER SESE EEE E EEE EERE EEE S SCC 


+ 
; FACILITY: STANDALONE SYSGEN 


; ABSTRACT: 

THIS ROUTINE IS THE MAIN PROGRAM AND SUBROUTIN 
STANDALONE SYSGEN. STANDALONE SYSGEN IS USED 
BACKUP TO AUTOCONFIGURE ALL DISKS AND TAPES. 


; ENVIRONMENT: USER, EXEC, AND KERNEL MODE 
AUTHOR: STEVE BECKHARDT, CREATION DATE: 18-SEP-1979 
; MODIFIED BY: 


: ES FOR 
3 I 
: V03-016 CWH3016 c 26-Aug-1984 


F 
N STANDALONE 


W Hobbs 
Move the fix in KDM0091 so that the device will be 
available when the attempt is made to read its volume 
label for the ‘Resuming operation on volume ‘"* message’ 


v03-015 wWHM0001 Bill Matthews ag iat be 
Added definitions of quaey entry poinss for BOOSSETASCII, 
BOOSGT_SYSPARFILE, and BOOSWRISYSPARF ILE. 


VO3-014 CWH3014 CW Hobbs 15-Mar-1984 
Require a Yes response to the prompt requesting the next 
piece of media. Print a message telling which piece to 
remove, which has the side effect of rewinding the 
previous volume. This is necessary to prevent timeouts 
while a VAX-11/750 is rewinding the TUS8 device. 


OOOCOCCSOOSOOSOOOSOSOSOOSOSOSOSOOOOSOSOSOSOOOOOCOOOOOOOOOOOOOOOO: 


SOSoSoOCoCSCOoOSSOOCoOOSOSOOSOoOSOOOoOOooOoOSoSoSoSoS 
NAUSEA @ OOD NAUES WIN (OOOO NAMES WN $9 OONAU EWAN OC OONAUES WW OWONOULS Win 


PUPS B® BS BE BBE EB ENA NINA NIAID NONIPONNOPINUDY 2 2 2 SO Oo 


Ss 
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v03-013 pence?) Kathleen D. Morse 11-Nov-1983 
MSCP devices, the drive must be set back online after 
ruse one piece of media with another. 


v03-012 tr thleen D. Morse 10-Nov-1983 
Cian op ee BoossyScEh on word bounéry so that STASYSGEN 
a s on MicroVAX 


v03-011 KDM0089 Kathleen D. Morse 09-Nov-1983 
Add MicroVAX I and II support te. the test for a small 
console as a boot device. 


v03-010 CWH3010 CW Hobbs 25-Sep-1983 
Change messages about the configure procssh- Start 
STANB CONF with the process none “"STANDLOAD"’ and wait 
until it changes its name 2. on before prateeetng. 
This is to prevent cat} er to insert the next 
console volume while still loading STANDCONF . 


V03-009 CWH3009 Cw 29-Aug-1983 
Add call to BOOSUSEAC ,* erform an implicit USE /ACTIVE 
Other changes to support V5b packaging changes (i.e. 3 pieces 
of console media). 


v03-008 wrCO0Ge Wayne Cardoza 01-Aug-1983 
Fix a typo. 
v03-007 KDM0057 hleen D. Morse 28-Jul-1983 


Replace SIP_ SETTINE logic with a call to a loadable, 
cpu-dependent routine, EXESINIT_TODR. 


v03-006 wMC0001 Mayes Cardoz 27-Jul-1983 
Definitions for B80 SFILCLOSE, BOOSUF OOPEN, EXESLOAD. CODE 


v03-005 MSHO003 acye ann Hinde 07-Jul-1983 
Move PUTERROR, 108E SREADDRIY. to separate modules. 


v03-004 eng Maryann Hinden 23-Jun-1983 
e SBOOCMDDEF in other modules = global det inition here 
a needed. 


v03-003 MSHO001 Maryann Hinden 15-Feb-1983 
Configure TU81. 


v03-002 acessece Andrew C. Goldstein, 10-Feb-1983 16:57 
d code to prompt for system date 


v03-001 mi, s0086 Martin L. Jack, 5-Apr-1982 10:56 
Add PU to device select List. 


v02-011 MLJ0065 Martin L. Jack, 23-Dec-1981 3:07 
Rearrange order of operations so that volume oyttching occurs 
before autoconfigure, to support repackaging of most drivers on 
second volume. 


v02-010 MLJ0034 Martin L. Jack, 27-Aug-1981 16:06 


OOCCCOOSOCOSOSOSOSS SO GCOOSOOOCCOCOOCOOOOCOOSOOOOOOOOOOoOOoO 


SOoSCSCSCOCOSOSOSOOCSOOSOOOSOSOSOSOSOSOSOSSOSOSOSOSOSOSOOOOSOOOOOSOOOOOOOoOoOo 


et at ot 
= 3 § tQOOD0OGO000000 000000000909 69 09 09 69 09 69 09 08 SINISE NSN OA AAAAAAOOnvutn 


PUNO ODOM WIN $9 OD NAUNE WIN OOO NAME WN 9 OONAOU EWN OOONAUS WM —OOo 


SOOSOCOOSOSOOSOSOSOSSOOCOSSOSOOSOOSOOSOSOOOSOSOOSOOSOOCOOSCOOOOOOOOOOOOOOOSOOOOOOoOo 
SDOCOOCOSOSOOSOOSOOCSSSSOSSOOSOSSSOOSSOOSOSCSOSOSSOSOSOSOSOSOSOOOOOSOOOOOOOOSOOoOoOO 


SSSSeeos 
SOOOOoCooooooeoeaS 
aD a 
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0 115 ; 
ae ae v02=009 
00 118 ; 
000 119; 
000 120; 
000 121; v02-008 
000 1 ¢ : 
0000 123; 
0000 124; 
0000 125; v02-007 
tit 1 § 3 
00 1 3 
0000 128; v006 
0000 129; 
0000 130; 
0000 131; 
$008 13 : 
000 133; vo0o5s 
0000 «6134; 
0000 135; 
0000 136 3 v004 
0000 137; 
0000 138; 
$444 139 ; v003 
000 140 ; 
0000 141; 
0000 126 3 
0000 1435; 
0000 144; v002 
0000 145; 
0000 146 ;-- 


~SEP-1984 6:26 ([BOOTS.SRCJSTASYSGEN.MAR; 1 
Improve wording of volume switch prompt. 
ML J0032 Martin L. Jack, 10-Aug-1981 14:35 


Page 


Change image name to STABACKUP. iutesont gyre Line printers. 


Issue prompt to switch volumes only if boo 


JLV0037 Jake VanNoy 7-Jul-1981 
Added dummy entry point for LBRSOUTPUT_HELP, the new 
SYSGEN help routine. 


JLV0030 Jake VanNoy 27-June-1981 
Added RIO_INPNAM symbol to resolve SYSGEN reference. 
TCMO001 Trudy C. Matthews 18-Jun-1981 


Added code to disabie and deallocate boot file cacheing, 
~ ay the DSC.EXE image on the second floppy can be 
ound. 


JLVO011 Jake Vertiey votion tt 

ADDED BOOSV&M_AUTOLOG OFFSETS TO RESOLVE SYSGEN SYMBOLS. 
JLV0003 JAKE VANNOY 27-F EB-1981 
ADDED BOO$_ OFFSETS TO RESOLVE SYSGEN SYMBOLS. 


JLVO002 Jake VanNoy 11-Feb-1981 
Added a BOOSGL_ DOT Label so stand alone sysaen can 
Link with SYSGEN modules. Connected to a bug fix in 
the USE <filespec> in SYSGEN. 


LMKO001 LEN KAWELL 09-F EB-1980 
CHANGE IOGENSREADDRIV TO READ THE IMAGE HEADER. 


ing from console. 
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(1) 


0000000D 
Q000000A 


00000000 
0000 
00000000 0000 


00000000 0004 
00000000 0008 


C 
00000010 Bone 


010 
00000014 0010 
014 
00000018 


0000001C 


49 44 24 53 59 53 eemoneatt ei y | i 
3A 4B 5 


SoOooooooooooo 


SOOO OCOOOoOoOooo 


WARORORNOPY — 


OOVTVTS POOOw@BwWewsS 


68 74 20 74 72 65 73 6E 49 o7 OA OD 
= 6E 6F 6C 61 64 6E 61 74 73 20 65 
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PROGRAM FOR STANDALONE SYSGEN i ats ta pS 
TIONS 


4-SEP=19 
«SBTTL DECLARATIONS 
INCLUDE FILES: 


-MACRO ERROR MSG 
BSBW ERROR _HALT 
-ASCIZ \"MSG*\ 
-ENDM ERROR 


: EQUATED SYMBOLS: 
CR=*xD 
LF=*XA 


: OWN STORAGE: 


-PSECT BOOSSYSGEN,WRT,WORD 
BOOSGL_CMDOPT:: .LONG 0 
BOOSGL_DOT:: LONG 0 
R10_INPNAM: : -LONG 0 
BOOTFLAGS: 

~-BLKL 1 
BOOT_SMALL_CONSOLE: 

-BCKL 1 


INPBUF: .BLKL 1 
SYSDISK_CHAN: 
.BLKL 


SYSDISK_NAME : 
.ASCID "'SYSSDISK:" 


Rornony— ee ce ee ee ee ee em ee me a a ee ee ee ee ee ed ed ed od ed 

SOOO COOOOO OO OW 600000000009 0909 SIN NINN NNN NNN AA AAAAAAA AO UMUNIUIUTUIUTUTUTU i 

MOO BDGNOUSWN OO OONOAUE WUD 9 ODNAUS WA 0 OONOAU EWR OOONOULS WOOO 
ee as 


23:8 


Se Ge Ge Ge 


5:10 VAX/VMS Macro v04-00 
6:26 ([CBOOTS.SRCIJSTASYSGEN.MAR; 1 
Define RPB offsets 
Define UCB offsets 
ASCII carriage return 
ASCII Line feed 


Options Longword 


Dummy Label, **. 


Boot flags 


Will have to do volume switch 
Dummy input buffer 


; Prompt string for switching console media 
SWITCHPROMPT: -ASCII <CR><LF><7>/Insert the standalone application volume / 


cc --—_- -- - — 


| 


| STASYSGEN 
raphe: 
6E 6F 69 74 61 63 69 70 70 61 
is 2 7 é e gp ’5 5 ei ’ 29 
61 res $9 58 6E 65 ef $3 8 23 s 45 
00 20 SA 64 
65 72 20 65 73 61 $? 33 50 i OA OD 
6C 6F 76 20 65 68 74 20 65 g 6F 6D 
00 07 22 $3 6 $p 53 
63 20 65 68 74 $ 6D 6F $8 02 
63 69 76 65 64 20 65 6C 6F 6E of 
00 OA OD 07 2E 65 
20 67 6E 69 6D 75 73 65 52 OA OA OD 
69 74 61 72 65 70 6F 20 64 61 6F 6C 
65 6D 75 6C 6F 76 20 6E 6F $0 gf gf 
74 73 20 65 73 61 65 6C 70 20 2C $9 
2E 20 2E 20 2E 20 79 62 20 64 6E 61 
00 OA OA OD 
41 44 GE 41 54 53 OO00000FE*010E0000' 
45 58 45 2€ GE 4F 4C 
44 00' 
01 
4D 00° 
01 
50 4C 00° 
43 4C 00° 


FFFFFFFF FF676980 
0000 


00000000 
00000000 
00 OA 43 

6F 72 70 20 67 6E 69 74 61 65 fe 6 
66 6E 6F 63 20 6F 74 20 73 73 65 63 
65 74 6F 6D 65 3 29 65 72 75 67 69 
2E 20 2E 20 73 65 63 69 76 65 gs $3 
00 OA 90 E 20 

72 75 67 69 66 43 6F 63 20 OF 4E 
0 64 of 61 $9 4 HH 48 20 67 $f 69 
0 64 65 76 72 65 20 0 43 4D 
20 2E 20 2E 20 73 65 63 69 76 65 ge 
00 OA OD 2E 


—OGOoOCooooo MoOVIOCWWWD>YS SP OWMONAINO = 


_— Ss es Be Be | oO ~ ww 


ed ed ed ed ee ed ee ee ae eed ee ee ee ee ee ee ee oe el ae eld aed ed aed ed ed ed ed ad eed od aed ed CS OOOO OODOOOCOCOCOCOOCOOOOOoOOoOOoOoO 
1D FWD 09 & OCO00 09090968 HUI OOOO WD FAA A S ND MUI SITIO OO 


SOOCSCOCOCOSOOCOSOSOOSOOCOOCOCOCOCOSOOCOSSSCSCSCCOCCOCOOOoCOoOoOOOOOOOOOOOOOoOoOoOo 


DOWNS OWVLS SWNNNIN 2 2 eo oe 


fFofaonoeo 


REMOVEPROMPT1: 


REMOVEPROMPT2: 


RESUMEPROMPT1: 


RESUMEPROMPT2: 


IMAGENAME : 
-ASC 


SELECT_LIST: 
eASCIC 


-ASCIC 
-ASCIC 
-ASCIC 
-ASCIC 


CONF CRLF? 
CONF LOAD: 


CONF WAIT: 


3; Data used by 
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BOOTS. SRCJSTASYSGEN.MAR; 1 (2) 


-ASCIZ /and enter ‘'YES'' when ready: / 


-ASCIZ <CR><LF><7>/Please remove the volume ‘''/<7> 


-ASCIZ /*' from the console device./<7><CR><LF> 


eASCIZ <CR><LF><LF>/Resuming load operation on volume ‘'/ 


-ASCIZ /*', please stand by. . 


/STANDALON.EXE/ ; 
/D/ : 
/¥/ F 
/LP/ : 
/UC/ ; 
/P/ : 
0 3 


the autoconfigure. 


- LONG atthe 


" 0 
eASCIZ <CR><LF> 
-ASCIZ /Creating process 


-ASCIZ /Now configuring HSC and MSCP-served devices . . 


; Select 


«/<CR><LF><LF> 


; Image name to activate after 


SYSGEN is finished 


List for AUTOCONFIGURE ALL 
ALL disks 


ALL tapes 


; Line printers 


; ALL port drivers plus paper tape 
; End of List 


; One second F 
; Number of seconds in port poll int 
; Number of seconds in process poll 


to configure remote devices . . ./<CR><LF> 


-/<CR><LF> 


C+ + ee re 7=y 


pao 


| 
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wos000 DECLARATIONS panes Ti $8 Oe 28 BOOTS.SRCJSTASYSGEN.MAR; 1 . (3) 
1 
| 1 : ; The following data is used in creating the stand-alone Configure Process 
43 44 GE 41 54 23 BRO2 136 "21050000" ; 6 STAC_IMAGE: «ASCID /STANDCONF.EXE/ ; Image name 
3A 30 41 50 4F SF 69006181 ovoFb000° 1 7 STAC_OPER eASCID /_OPAO:/ : Input/output device 
FFFEF FRFFFFFFF 01 8 STAC_PRV_MSK «LONG =T,- ; Let it do anything it wants to do 
4C 44 4E 41 54 53 seceradincl bbe 3 te: i } 9 STAC_PRC: -ASCID /STANDLOAD/ ; Initial process name 
00000000 01 40 STAC_PID -LONG 0 ; Gets the process pid 
1 41 STAC_QLIST ; And a generous List of quotas 
01 1 ri} -BYT PQL$_ASTLM 
000000C 1 4 «LO 
02 01 44 -BYTE PQL$_BIOLM 
000000¢8 01 45 - LONG 
03 01 46 -BYT PQL$_BYTLM 
000186A0 01 47 «LONG 1000 
04 01 48 .BYTE PQL$_CPULM 
00000000 01 49 ° 
05 01 50 -BYTE PQL$_DIOLM 
000000C8 01 51 «LONG 
oc 01 26 -BYT PQL$_ENQLM 
000000C8 01 5 «LONG 
06 01 54 -BYTE PQLS_FILLM 
000000C8 01 55 - LONG 
01 56 -BYT PQL$_PGFLQUOTA 
00005000 01 57 - LONG 
01 8 -BYTE POQL$_PRCLM 
000000C8 01 9 -LO 
02 0 -BY PQL$_TQELM 
000000C8 02 1 ° 
02 ¢ -BYTE PQLS$_WSDEFAULT 
000003E8 Os - LONG 
OA 0 4 -BYTE PQL$_WSQUOTA 
O00003E8 02 5 - LONG 
00 05 § -BYTE PQLS$_LISTEND 
Os 8 ; Some data needed so that we will see when STANDCONF changes it's name 
46 4E 4F 43 44 GE 41 54 53 «0 0 STANDCONF : eASCII ‘“"STANDCONF** 
00000000 0 1 JPI_LENGTH: «LONG 0 
0000022E 0 § JPI_NAME : -BLKB 16 
ogi? 0 JPI_LITEM: ORD 16 ; Buffer is 16 bytes long 
8 1¢ 8 4 ORD JPI$_PRCNAM ; Item desired is process name 
0000021E' 5 eADDRESS JP1_NAME ; Output buffer 
0000021A* 02 6 eADDRESS JPI_LENGTH ; Output Length 
00000000 02 7 LONG 0 ; End of lis 


—— 


: Check if there is a CI on system, if so wait for devices to show up. 
SCMKRNL_S W*FINDCI 3; Find any CI adapter 
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/ V04-000 BOOSSYSGEN - main program 64-SEP-1984 1 93: 82: :26 ([BOOTS.SRCJSTASYSGEN.MAR; 1 at 
: iF isa «SBTTL BOOSSYSGEN = main program 
| E 1 :" FUNCTIONAL DESCRIPTION: 
E ¢ 3 is ig the main program for standalone SYSGEN. It does the 
; ? : fol towing: 
| E 5; 1) Locks the entire saoge into the working set. 
023E a6 3 2) Sets up the system time and saves the current 
023E 87 ; SYSGEN pareneters in af be E. 
| 8 E 88 ; 3) Autoconfigures disks ot and Line printers. 
E 89 ; 4) Optionally does a SHOW/ 
| 8 4 39 : 5) Activates the next image, STABACKUP. 
O23E 36 > CALLING SEQUENCE: 
0 He 93; 
8 ze 3¢ : Called by the Image activator 
023E %6 : INPUT PARAMETERS: 
0 Ha 97 ; 
023E 98 ; NONE 
OSee 99 ; 
023E 00 : OUTPUT PARAMETERS: 
023E 01 ; 
023E 8 3 RO Completion code 
O23E 303; 
OSee 304 ‘ COMPLETION CODES: 
0 Ha 305 ; 
023E $09 3 3 Various errors 
023E 07 ; 
O23E 308 ;-- 
023— 309 
0000 023E 310 ENTRY BOOSSYSGEN, “M<> 
0240 11 $k KWSET_ ; Lock entire image in working set 
$548 \¢ ~TNADR= BOOSGQ LIMITS, - ; 
0240 1 RETADR=B00$G0 RETADR 3 
0255 14; 
O$22 iF 3; Set up the system time 
0523 i? x SCMKRNL_S W*SIP_SETTIME ; Set up the system time 
0260 319 : Get boot flags and boot device type 
asee $f SCMKRNL_S W*GET_RPB_INFO ; Get boot flags and device type 
096 § : Initialize various other things which need kernel mode 
026 3 : SCMKRNL_S W*KERNEL_INIT 
037 27: Autoconfigure disks, tapes, and line Sears, 
00000000" EF 00 FB 027 CALLS #0,BOOSUSEAC t current values for local SYSPARAM 
OOOOO000'EF FEB4 CF 9E 8 8 MOVAB secect LIST Bo0sc_ SELECT : ee builtin select List 
00000000'EF 00 FB 8 CALLS BOOSCONF IGA ; Autoconfigure all adapters 
659 
029 
029 


WANN 
MEWN OOo 


sy 


fr -—— ----——- + - ---- 


STASYSGEN 
Vv 


FESS 
00000000" EF 
FD20 


FE33 
00000000' EF 


00 FED9 CF 
FEDF CF FEDE 


55 = 012C 


FDE6 
00000000'EF 


50 FD9A CF 
FD87 CF 


MOONOOCOoON 
VUWFMO MW 7Mm 


E9 


SOOOCOCOOCOOCOOCOC COCO O COCO OCOOOCOSSCSOOCOOOOOOOOOOOOOOOOO: 
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AAAI AIA AAI AIAN AI nono nonononononononungony 
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"0s 


BLBS 


R0 10$ : 
W 3 
10S: SCREPRC_§ - : ; 
INPUT = STAC“OPER, - : 
0 TPUT = STAC_OPER,-  : 
LIST, 
PRCNAM = STAC_PRC,- 
PIDADR = STAC~PID.- 
BASPRI = #8,- 
UIC = #*x10604 
BLBC ~=—_-«aRO, 23 


next piece of console media wh 
0S: CLRQ -(SP) 


Pipe Oe ee ee tees 


DODO OO TION Sh he he ee eh bons nd 
MOOD NAME WIN 0 OONAUE WIN O ODNAUE WO OONO 


13 
92 ; If XDELTA is mapped into the system, do 


5:10 VAX/VMS Macro v04-00 p 
8:26 lBoors SReiSTASYSceN.mar:1 /°%* (8) 
None 


; Start up the STANDCONF process to 


SyPeneqneusty find and configure 
ll devices served by HSC and MSCP-server 


a 
a 
hosts. 


STANDCONF has been created with the process name ‘’STANDLOAD’’. We will now 
wait for it to change its process name to "’ 
that it is loaded and Snecut tae so that we won't ask t 

le the STANDCONF image is still being read. 


STANDCONF''. This will let us know 
he human to load the 


No input buffer 
purput 8 blank Line 


Booting from a small console? 
Disk boot, no need for encouragement 


gviput Line to tickle the user 


Set a timer for one second 
for 


Get the process name using the PID 
returned by creprc. 


Blow up if we can't do the ot ipl 
Compare the name against ‘‘STANOCONF"’ 
if the process is active 
The name we want, go do something 
Increment our coun 
Have we aoe doing this for 5 minutes? 
minutes, do it again 


KUP prompt. Print a message 


Thrice the port poll interval 
Plus the oresees post interval 
me 


eee and wait for it. 
a SHOW/DEVICES. 


PUSHAB CONFCRLF 3 
CALLS #3,BOOSREADPROMPT 3; Print 
TSTB BOOT_SMALL_CONSOLE : 
BEQi. 1$ ; 
CLRQ - :; No input buffer 
PUSHAB CONFLOAD : 
CALLS #3,BOO0SREADPROMPT 3; Print 
$33: CLRL R5 ; Clear a counter 
2$: SSETIMR_S EFN=#3,DAYTIM=TIMER : 
SWAITFR S EFN=#3 3 eee and wait 
3 S$GETJPIO_S EFN=#3,- : 
6 PIDADR=STAC_PID,=- ; 
$$ JUBLST=JP TITER 
7 LBC RO,23$ $ 
37 CMPCS #9,STANDCONF ,#0,- : 
es JPE_LENGTH, JP1_NAME ; to see 
7 BEQL 25$ 3 
74 INCL RS : 
75 CMPW #300,R5 : 
76 BGTR 228 _. ¢ Less than 
AA 238: ERROR <Configure process failed to initialize> 
79 ; STANDCONF is up and running, now wait for several pot tng intervals so that most 
80 ; devices should be configured before we give the BA 
4 ; that we are configuring so that the human won't give up hope. 
Hf 25$: CLRO -(SP) : No input buffer 
84 PUSHAB CONFWAIT ; Output string 
5 CALL #3 ,BOOSREADPROMPT 3; Print it 
§ MULL #3,PA_POLL_INT,R 3 
ADDL2 PRC_POLL_IAT.RO ; 
3 MULL ; Make into delta 
SSETIMR_S 43. TIMER : Set a timer 
+ SWAITFR_S # : 


=e 


-——— -- 


= ——s  —_ — 


FCCD CF 


FCAA C 
QOOOO4IC*EF O02 
FC3D CF 


= 
ee) oe 


0000041C' 


FCE2 CF 
QOO00000"EF 01 


LS 
45$: PUSHAB 


By SLE. SERRE BREESE BS 8-8 88S EEE EEE EE EE EE EIA 


WAI WIWANIWIIPPIPININPINIPNININDY 2 OO OO sau ahumoes 
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10 
PROGRAM FOR STANDALONE SYSGEN 16- 


SEP-1984 : 
SGEN = main program pease $89 
93 : 
94 $0$: BBC #RPBSV_DEBUG ,BOOTFLAGS ,40$ 
5 CLROQ -(SP) § 
CLRQ = =($P) ; 
CLRQ = =(§P) : 
CLRQ  =(SP) : 
CALLS #8,BOOSSHODEV_ALL : 


PUSHAB REMOVEPROMPT 
PUSHAB REMOVE PROMPT 
#2, LABELMSG 
INPB 
SWITCHPROMPT 
CALLS #3,BOOSREADPROMPT 
#35, INPBUF + 
CMPB INBGUF +1 .#*a''y" 


If device is MSCP, then it goes offline 
another piece of media. A PACKACK must 


5:10 VAX/VMS Macro v04-00 P 
8:26 bpoore speistasyscen.mar:1 -°%° 3 


; Branch if no XDELTA 
Set up fake TPARSE parameter block 


Show devices 


; Request operator to switch to second floppy or cartridge if necessary. 
dos: TST BQOT_SMALL_CONSOLE 
BEQL $ 


Do we have to switch volumes? 

Branch if no 

Pass address of second half of message 
Pass address of first half of message 
Tell s/he to remove 

Push address of input buffer 

Push size of input buffer 

Push address of message 

Prompt and wait for return 

Force to upoer case (ASCIC string returned 
Look for the Y 

Loop until a Y is entered 


when we replace it with 
be sent to the device to 


oi tes us to continue. Note: mount verification cannot take care 


this for us, because there is no VC 
have the ‘‘mounted’’ characteristic set. 


BSBW W*MSCP_PACKACK 


PUSHAB RESUMEPROMPT2 : 
PUSHAB RESUMEPROMPT1 : 
CALLS #2,LABELMSG : 


B and the system disk does not 


Set device back on Line 

Pass address of second half of message 
Pass address of first half of message 
Tell that we are resuming 


Disable file caching so FILSOPENFILE will be forced to look 


at the new floppy or cartridge. 
SCMKRNL_S W*DISABLE_FILE_CACHE ; 


> Activate STABACKUP image. 
50s: PUSHAQ IMAGENAME : 
CALLS 


#1 ,BOOSACT IMAGE 


Disable and de-allocate file cache 


Push address of image name descriptor 


; Activate next image 
; Should never return here 


Cen” 04-00 Page 
- RAM FOR STANDALONE SYSGEN 16-SEP-1984 00: 5:10 AX/VMS Macro V ; 
BOUSeYSGEN main program rae at Brees BOOTS. SRCIJSTASYSGEN.MAR; 1 


tie 0803 L in the middle 
41C 439 ; Print a message, giving the volume Label in 
; : Pointer to ASCIZ string for front of message 
re: rr : “posite ctab) Pointer to second hal? of message 
1¢ <28 : 
41C 445 LABELMSG: “ a8 .f9.810.811> 
ore if tes novee mshi 1+ pet seein a Make a buffer on the stack 
et WS gf 135 4 MOVL SP.R6. 3; Save the buffer address 
= “ d 6 te SASSIGN_S = ; Assign a channel to sys$disk 
426 864 “DEVNAM=SYSD1SK_NAME = 
7 § 44 st CAND Lte SK. CRAN 
thee Sat * t29 ; - ; Read the home block 
be A t33 one. EFN=#16,- : Use event flag 16, easy to see 
13a re CHAN=SY$D1SK CHAN,- ; Use the channel we just assigned 
43a 454 FUNC=#10$_READLBLK,- ; Read logical block 
t3A 55 P1=(R6),-" ; Buffer space reserved on the stack 
a3a 43 P2=#512.- ; Read one bloc 
bcaa t39 P3=41 : Logical block number 1 
a bce 43 SDASSGN_& EHANSSYSDISK_ CHAN ; Return the channel 
42 50 9 046€ 460 BLBC RO, 100 , vtas he 
a ety chee 
Py t and wa or retu 
a a 05 oe bere ies souks rt me : Point RS at the volume Label 
a a Hi tbo aes VL 0° ; Length of volume Label 
rid 6546 8 bce re OVAB (R SCROJ.R1 : cetee in yy end 
- 3 ains 
we 65 * Be ree assets BEOE gba ; ayte is null, skip it 
— 3 a space 
” 4 3 rt £33 BNEG ‘ $ = 3 tnd »P nane rome. print it 
: r 
FS oe i o498 ayo aka Bogs ; No none. don't bother not printing it 
AT 96 08 278 40$ CLRB «1 (R1) ; Put a null after the string 
a bce tz *° CLRG -(SP) : Null buffer is print only 
43 4s rh tos PUSHL 3 ee => frene ° Ss mes Label 
00000 3 e the firs 
" wie Ea get 138 50$: eeats + 5 apace aie 3 Na l buffer is print only 
08 a 4s GA t ; PUSHL 8(AP) 3: Push ecerace 9 qveneee 
00000000"EF 03 FB ‘ 44 cots #3, BOOSREADPROMPT 3; Prompt and w 
* 4B “BS 100$: ERROR <Unable to read application volume> 


pe  - 
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4D 483 ; 
rts 2 ¢ ; Local kernel mode routine to get RPB information. 
408 4 : GET_RPB_INFO: 
a * 4D 4 «WORD “M<> 
50  00000000'EF 4DA & 3 MOVL MMGSA_SYSPARAM+<EXES$GL_RPB-EXESA_SYSPARAM>,RO 
F825 CF 30.A0 DO OCET 690 MOVL —RPBSL_BOOTRS(RO) ,BOOTFLAGS  °s "Ser beet fiaps ee COPY? 
° ; Get boo ags 
OOOOOSES BF O00000B0'GF D1 O4E7 491 CMPL “SYSSGL_BOOTUCB+UCBSL_MAXBLOCK ,#1 00 ; is "this a small boot 
14 04F2 £36 BGTR 3; boot device (console)? Br if not. 
FB17 gf 01 3 4F4 849 MOVB #1,BOOT_SMALL_CONSOLE ; Remember that boot console is small. 
0 01 4-9 494 108: MOVL #1,R0 3; Return success 
4 QO6FC 495 RET : 
O4FD 496; 
O4FD 497 ; Local kernel mode routine to do various inits 
O4FD 498 ; 
O4FD 499 KERNEL_INIT: 
0000 O4FD 500 «WORD “M<> 
O4FF 203 3 
Rees 208 ; Enable unrestricted locking 
00000000 ' GF 94 Behe ape CLRB G*LCKS$GB_STALLREQS 
00000000'GF 16 0505 506 JSB G*INISBRK 
50 01 00 0508 507 MOVL #1,R0 3; Return success 
oe 7 
O5S0F 510 ; For MSCP devices, a PACKACK must be sent to the device before attempting 
OSOF 511 ; to read the new piece of media. Putting in the new media has made the 
OSOF 6 3; device go offline. 
O50F 3] : 
O50F 514 MSCP_PACKACK: 
7E 50 7D OSOF 515 MOVQ RO,-(SP) ; Save registers. 
ee ee baie 516 MOVa R2,-(SP) : Save registers. 
7E D4 051 517 CLRL -(§P) ; Place to hold channel number. 
52 SE bO 0517 518 MOVL SP,R2 ; Remember address of channel. 
OSIA 519 SASSIGN_S - ; Assign a channel to system disk. 
OS1A 2 0 DEVNAM=DSC,- ; Adr of str dsc for dev name str. 
OS1A 1 HAN=(R2) ; _Adr of a word to receive chan number. 
35 50 9 0528 ; § BLBC RO,10$ ; Br if error. 
7E = 7C O5¢ LRQ = =(§P) ; Set up 10SB. 
53 SE 00 05 4 MOVL SP,R3 ; Remember address of I0SB. 
053 5 £ - 3 Send PACKACK to system device. 
833 § CHAN=(R2),- ; Channel number. 
5 FUNC=#10$_PACKACK,- ; Function code. 
053 8 10SB=(R3) ; _1/0 Status block. 
10 30 —9 229 529 BLBC RO,10$ ; Br if error. 
0D 63 «£9 «055 0 BLBC — (R$), 108 : Br if error. 
556 1 SDASSGN_S - ; Deassign the channel. 
556 ¢ CHAN=(R2) ; Channel number. 
0050 €9 268 BLBC RO, 10$ :; Br if error. 
56 4 10$: :; If error, nothing to do... 
5 C CO 0563 5 ADDL 4#12,SP : Clean off 10SB. 
5 E D 208 § MOVQ (SPS+,R ; Save registers. 
5 —E 7D 28 MOVQ (SP)+,R ; Save registers. 
5 6c 8 RSB ; Return f 
59 53 24 53 59 53 00000575°010E0000' 056D 9 DSC: eASCID /SYSSSYSDEVICE:/ ; Logical name descriptor for 
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3a 45 43 49 56 45 44 53 05 
2 9 ; system device for SASSIGN. 
2 g ; Local kernel mode routine to disable and de-allocate FILSOPENFILE cache. 
5 44 HISABLE_FILE_CACHE: 
009¢ 5 ; 45 “.WORB “*M<R2,R3> 
51 00000000° GF 4 5 ry MOVQ G*F I1L$GQ_CACHE,R1 ; Rl=size, R2=address of cache 
16 #1 58C 4 BEQL 10$ 3 Branch if cache not present 
eens yall 7¢ «(05 ; 48 CLRQ So Ah ener ; Disable the cache 
0 DO 059 49 MOVL R2,R : Copy address of cache 
53 00000004'GF D0 0597 20 MOVL § G*EXESGL_NONPAGED+4,R3 : Address of free non-paged pool 
YV0000000'GF 16 O59E 1 JSB G*EXESDEALLOCATE ; Deallocate FILSOPENFILE cache 
50 01 DO O5A4 26 10$: MOVL #1,R0 3; Return success 
04 a4 ¢? RET 3 
O58 338 ; Local kernel mode routine to determine if any CI's on system. 
0000 0548 557 FINDCI: .wORD “M<> 
5 D4 OSAA 558 CLRL RO 
O0000000'GF DS OSAC 559 TSTL G*SCSSGL_BDT :; Is the buffer descriptor table there? 
13 0582 560 BEQL 10$ 3; No, so no CI 
FB63 CF QO0000000'GF 3C 0584 561 MOVZWL G*SCSSGW_PAPOLINT,PA_POLL INT ; Yes, pick up port poller interval 
FBSE CF Q0000000'GF 3C 058d 266 MOVZWL G*SCS$GW_PRCPOLINT,PRC_POLL_INT * Yes, pick up process poller interv| 
50 D6 05C6 6 INCL RO 
06 05€8 564 10$: RET 
05¢9 565 ;+ 
Bete 206 ; Print an error message and halt 
2D 45 GE 4F 4C 41 44 GE 41 54 53 25 05C9 568 ERRHDR: .ASCIZ 'XSTANDALONE-F-"" 
00 2D 46 0505 
05D8 569 ERROR_HALT: | 
—E 7C 0508 570 CLRO -(SP) : Null buffer, print only 
EC AF 9F OSDA 571 PUSHAB ERRHDR 3; Print the header 
00000000 ' EF 03 FB O5DD 278 CALLS #3,BOOSREADPROMPT 3; Now do it 
57 SE 00 OSES 57 MOVL SP,R7 3 Copy message address 
Ze 7C (OSE? 7h CLRO = =( §P) ; Null buffer, print only | 
57 DD OSE9 75 PUSHL R7 ; Pass the error message address 
00000000‘ EF 03 FB OSEB 576 CALLS #3 ,BOOSREADPROMPT 3; Now do it 
OSF2 577 SCMKRNL_S 6*10$ 3; Change mode to kernel and halt 
0000 OSFE 578 10$: -WORD “~O 
00 0600 579 HALT 
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| ! 1 ae -SBTTL SIP_SETTIME = Set system time 
§ ; FUNCTIONAL DESCRIPTION: 

601 5: THIS ROUTINE CALLS THE LOADABLE, CPU-DEPENDENT ROUTINE, EXESINIT_TODR, 

6 § ; TO INITIALIZE THE TIME-OF-DAY REGISTER AND SYSTEM TIME. 

6 : : INPUT PARAMETERS: 

601 590: NONE 

601 91; 

0601 3 ; IMPLICIT INPUTS: 

601 34 : TIME-OF -DAY PROCESSOR CLOCK. 

01 3 : OUTPUT PARAMETERS: 

601 38 ; RO,R1 = DESTROYED 

9601 690 : IMPLICIT OUTPUTS: 

0601 602: EXESGQ_SYSTIME - SET TO CURRENT TIME IN 100 NANOSECOND UNITS SINCE 

pent rt 5 17-NOV-1858 00:00:00. 

0601 605 : SYSTEM PARAMETER PAGE(S) ARE WRITTEN BACK TO SYSSSYSTEM:SYS.EXE. 

0601 607 :-- 

0601 

0601 


SIP_SETTIME: ; SET CORRECT TIME 
WORD : ENTRY MASK 
EXESINIT TODR : CALL _CPU-DEPENDENT ROUTINE 


0000 . 
OOOOOO0O0"EF 16 0603 JSB 
+t #SS$_NORMAL ,RO ; INDICATE SUCCESS 


50 0000°8F 3¢ 0609 
04 


L_10 
= MAIN PROGRAM FOR STANDALONE SYSGEN bs at Set 4 9 9: g3: :10 VAX/VMS fagce v04-00 Page 14 


Dummy entry points 4-SEP-19 6:26 (CBOOTS.SRCISTASYSGEN.MAR; 1 (7) 
60F 15 -SBTTL Dummy entry points 
ane Sak 
e0t o18 : These entry points are need to resolve references to routines 
60F 619 ; not Linked with the standalone version of SYSGEN. 
ee gge 
60F 6 ¢ BOOSGT_SYSNAME: : 
60F 623 BOOSGT- TSYSPARNAME :: 
Bene ? : BOOSGQ"FILDESC:: 
60F ° § LBRSOUTPUT_HELP:: 
60F LBRSINI_CONTROL:: 
O60F 6 8 tBRSOPERG. 
O60F 629 LBRSGET HELP 
QO60F 6 ? BOOSSEARC 
O60F 631 BOOSSETASCII 
QO60F 6 ¢ BOOSSETVALUE: 
QO60F 6 BOOSURTSTSPARY ILE: 
Q60F 634 EXESLOAD_COD 
O60F 635 CIBSGEt OINPUT; : 
060F $36 LIBSPUT“OUTPUT: : 
0000 O60F 63 -WORD 0 : ENTRY MASK 
D4 0611 O38 CLRL RO 
f° BB dace 
0614 641 BOOSMSGOUT:: 
0614 otg BOOSF ILOPEN:: 
0614 6435 BOOSFILOPENW 
0614 644 BOOSREADFILE 
0614 645 BOOSWRITEFILE 
0614 066 BOOSF ILCLOSE 
0614 647 BOOSUFOOPEN:: 
0614 648 SOOSEREORSH t 
D4 0614 649 CLAL RO 
0° tele eas es 
0617 652 -END BOOSSYSGEN 


STASYSGEN 
Symbol table 


$$T1 
ae yy ME areg 


OOSWRITEFILE 
ele aah dla 


OOTF 
BOOT SMALL_CONSOLE 
CONF CRLF 
CONFLOAD 
CONFWAIT 


CR 
DISABLE_F ILE_CACHE 
DSC 

ERRHDR 

ERROR_HALT 
EXESA-SYSPARAM 
EXESDEALLOCATE 

$e -NONPAGED 
HT O=CODE 


E 
E$G 
E 
ESL 

L$GQ_ CRCH 


Lede tend “Limsimslsilesl asians! 
pare —p—t - $3 $2] 


00000001 


RRERRERE 
RRARAEEE 


fenreeee 
0000060F 
eereeeee 
eeeeneee 
0000060F 
0000060F 
00000614 
09000614 
tteeeree 
0000060F 
0000060F 
0000060F 
teereree 
0000023E 
00000614 


RARER 


00000614 


Reeearee 
Reeeeene 
eeaereret 
Reeeeere 
gerrreke 


0000060F 


reaeraeenke 


D 
000000F 6 


Reeerere 


00000014 


gererere 
gerereee 
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0 
T_HELP 
ACLREQS 
_IN 

“OU 


POLS-FILLM 
POLS-LISTEND 
POL$~ PGFLGUOTA 
POL$~PRCLM 


PQL$_TQELM 
POLs~ -WSDEF AULT 
L$"wSaQ 


GL_BOT 
S$GW_PAPOL INT 
sey. +} ese 


4 
ZrO 
m— 
4) 
ey oad 
— 
= 
m— 


i 
on v0 700O- 
oO FO 


CHPROMPT 
SSIGN 


AMNNMNNMNMNMNYNYYN= SPY wy yr Yr Yr rw urn A 


Ke me a a a a a a a tt tt HIN EHMOOO 
TMHMMPMPRHPMMHPMPMRHAZAQOOOOC 
QAVIONOPOAa 
m 
uv 
Ps) 
o 


ANMANMMMMNHMHHNMNMNOHYNNYNNYNNNYYDAADD 
- 
oO 


OOOCGCOCOCOCOCOOOOOOOOOOOOOOS * O00 +O000o° NN 


COOOCCSCOCOOOOCOSCOOOSOSOSOSOSS *OO0 # Oooo 8O 


So 
So 
[=] 
So 
oS 
So 
So 
os 


eeeeenee 
eeeneene 
eeeeeene 
00000108 
00000601 


RRARREEE 


Cooooo 
ooooo 
ooooo 


0000002D 


RAEREEEEE 
RERTHERE 
geeeeeee 
Reeeeene 
Reereeee 
Reeeeeek 
geeeeene 
geeeeeet 
geeazeeee 
geateeee 


00000018 


2sOooo Ox 
~" 
z 
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0 
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! Psect synopsis ! 


$e erese em eermrawnoce + 
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PSECT name Allocation PSECT No. Attributes 

» 3 « 00000000 <¢ 0.) 00 ¢ 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

SABSS Booby ( 3° 8 { 4.) NOPIC USR CON ABS LCL NOSHR EXE’ AD WRT NOVEC BYTE 

BOOSSYSGEN 0000061 ( 1559.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE AD WRT NOVEC WORD 
twonwancreencme Bama eeaewaa > 
! Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 

Initialization 30 00:00:00.09 00:00:00.77 

Command processing 110 00:00:00.64 00:00:02.22 

Pass 1 292 00:00:08.87 00:00:16.91 

Symbol table sort ! 00:00:01.15 00:00:01.90 

Pass 2 14 00:00:02.27 00:00:04.28 

Symbol table output 15 00:00:00.12 00:00:00.60 

Psect synopsis output 1 00:00:00.02 00:00:00.02 

Cross-reference output 0 00:00:00.00 00:00:00.00 

Assembler run totals 593 00:00:13.20 00:00:26.74 


The_working set Limit was 1350 pages. ; . 

49632 bytes (97 pages) of virtual memory were used to buffer the intermediate code. 

There were 50 pages of symbol table space allocated to hold 784 non-local and 20 local symbols. 
652 source Lines were read in Pass 1, producing ge object records in Pass 2. 

29 pages of virtual memory were used to define 27 macros. 


o 
!' Macro Library statistics H 
dere reese ecanee a ea en ee em en ee oe oe 


Macro Library name Macros defined 
-$255$DUA28 : (BOOTS .OBJJBOOTS.MLB; 1 9 
.5255$DUA28: (SYS.OBJJLIB.MLB; 1 4 
$255$DUA28: (SYSLIBIJSTARLET.MLB;2 19 
TOTALS (all Libraries) 23 


895 GETS were required to define 23 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:STASYSGEN/OBJ=OBJ$:STASYSGEN MSRC$:STASYSGEN/UPDATE=(ENH$: STASYSGEN) +EXECML$/L1IB+L18$:B00TS.MLB/LIB 
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